home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / laletter / laletter.sty < prev    next >
Text File  |  1991-02-01  |  57KB  |  2,004 lines
  1. \typeout{Document Style laletter. September 18, 1989}
  2. %
  3. %  Steve Sydoriak wrote this software.
  4. %
  5. %  Copyright, 1990, The Regents of the University of California.
  6. %  This software was produced under a U.S. Government contract
  7. %  (W-7405-ENG-36) by the Los Alamos National Laboratory, which is
  8. %  operated by the University of California for the U.S. Department
  9. %  of Energy.  The U.S.  Government is licensed to use, reproduce,
  10. %  and distribute this software.  Permission is granted to the public
  11. %  to copy and use this software without charge, provided that this
  12. %  notice and any statement of authorship are reproduced on all
  13. %  copies.  Neither the Government nor the University makes any
  14. %  warranty, express or implied, or assumes any liability or
  15. %  responsibility for the use of this software.
  16. %
  17. \def\thebibliography#1{%
  18. \par%
  19. \vspace{\baselineskip}%
  20. REFERENCES%
  21. \list%
  22. {[\arabic{enumi}]}{\settowidth\labelwidth{[#1]}\leftmargin\labelwidth
  23. \advance\leftmargin\labelsep
  24. \usecounter{enumi}}%
  25. \def\newblock{\hskip .11em plus .33em minus .07em}%
  26. \sloppy\clubpenalty4000\widowpenalty4000
  27. \sfcode`\.=1000\relax}%
  28. \let\endthebibliography=\endlist
  29. \setcounter{topnumber}{2}
  30. \def\topfraction{.7}
  31. \setcounter{bottomnumber}{1}
  32. \def\bottomfraction{.3}
  33. \setcounter{totalnumber}{3}
  34. \def\textfraction{.2}
  35. \def\floatpagefraction{.5}
  36. \setcounter{dbltopnumber}{2}
  37. \def\dbltopfraction{.7}
  38. \def\dblfloatpagefraction{.5}
  39. \long\def\@makecaption#1#2{%
  40. \vskip 10pt 
  41. \setbox\@tempboxa\hbox{#1: #2}%
  42. \ifdim \wd\@tempboxa >\hsize %
  43. #1: #2\par %
  44. \else %
  45. \hbox to\hsize{\hfil\box\@tempboxa\hfil}%
  46. \fi
  47. }%
  48. \newcounter{figure}
  49. \def\thefigure{\@arabic\c@figure}
  50. \def\fps@figure{tbp}
  51. \def\ftype@figure{1}
  52. \def\ext@figure{lof}
  53. \def\fnum@figure{Figure \thefigure}
  54. \def\figure{\@float{figure}}
  55. \let\endfigure\end@float
  56. \@namedef{figure*}{\@dblfloat{figure}}
  57. \@namedef{endfigure*}{\end@dblfloat}
  58. \newcounter{table}
  59. \def\thetable{\@arabic\c@table}
  60. \def\fps@table{tbp}
  61. \def\ftype@table{2}
  62. \def\ext@table{lot}
  63. \def\fnum@table{Table \thetable}
  64. \def\table{\@float{table}}
  65. \let\endtable\end@float
  66. \@namedef{table*}{\@dblfloat{table}}
  67. \@namedef{endtable*}{\end@dblfloat}
  68. \def\@ptsize{0} %
  69. \@namedef{ds@11pt}{\def\@ptsize{1}} %
  70. \@namedef{ds@12pt}{\def\@ptsize{2}} %
  71. \@twosidefalse
  72. \def\ds@draft{\overfullrule 5pt} %
  73. \@options
  74. \lineskip 1pt %
  75. \normallineskip 1pt
  76. \def\baselinestretch{1}
  77. \ifcase \@ptsize\relax %
  78. \def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt 
  79. \abovedisplayskip 10pt plus2pt minus5pt%
  80. \belowdisplayskip \abovedisplayskip
  81. \abovedisplayshortskip \z@ plus3pt%
  82. \belowdisplayshortskip 6pt plus3pt minus3pt%
  83. \let\@listi\@listI} %
  84. \def\small{\@setsize\small{11pt}\ixpt\@ixpt
  85. \abovedisplayskip 8.5pt plus 3pt minus 4pt%
  86. \belowdisplayskip \abovedisplayskip
  87. \abovedisplayshortskip \z@ plus2pt%
  88. \belowdisplayshortskip 4pt plus2pt minus 2pt%
  89. \def\@listi{\leftmargin\leftmargini %
  90. \topsep 4pt plus 2pt minus 2pt\parsep 2pt plus 1pt minus 1pt
  91. \itemsep \parsep}}
  92. \def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
  93. \abovedisplayskip 6pt plus 2pt minus 4pt%
  94. \belowdisplayskip \abovedisplayskip
  95. \abovedisplayshortskip \z@ plus 1pt%
  96. \belowdisplayshortskip 3pt plus 1pt minus 2pt%
  97. \def\@listi{\leftmargin\leftmargini %
  98. \topsep 3pt plus 1pt minus 1pt\parsep 2pt plus 1pt minus 1pt
  99. \itemsep \parsep}}
  100. \def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
  101. \def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
  102. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  103. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  104. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  105. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  106. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  107. \or %
  108. \def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
  109. \abovedisplayskip 11pt plus3pt minus6pt%
  110. \belowdisplayskip \abovedisplayskip
  111. \abovedisplayshortskip \z@ plus3pt%
  112. \belowdisplayshortskip 6.5pt plus3.5pt minus3pt%
  113. \let\@listi\@listI} %
  114. \def\small{\@setsize\small{12pt}\xpt\@xpt
  115. \abovedisplayskip 10pt plus2pt minus5pt%
  116. \belowdisplayskip \abovedisplayskip
  117. \abovedisplayshortskip \z@ plus3pt%
  118. \belowdisplayshortskip 6pt plus3pt minus3pt%
  119. \def\@listi{\leftmargin\leftmargini %
  120. \topsep 6pt plus 2pt minus 2pt\parsep 3pt plus 2pt minus 1pt
  121. \itemsep \parsep}}
  122. \def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
  123. \abovedisplayskip 8pt plus 2pt minus 4pt%
  124. \belowdisplayskip \abovedisplayskip
  125. \abovedisplayshortskip \z@ plus 1pt%
  126. \belowdisplayshortskip 4pt plus 2pt minus 2pt%
  127. \def\@listi{\leftmargin\leftmargini %
  128. \topsep 4pt plus 2pt minus 2pt\parsep 2pt plus 1pt minus 1pt
  129. \itemsep \parsep}}
  130. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  131. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  132. \def\large{\@setsize\large{14pt}\xiipt\@xiipt}
  133. \def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
  134. \def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
  135. \def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
  136. \def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
  137. \or %
  138. \def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
  139. \abovedisplayskip 12pt plus3pt minus7pt%
  140. \belowdisplayskip \abovedisplayskip
  141. \abovedisplayshortskip \z@ plus3pt%
  142. \belowdisplayshortskip 6.5pt plus3.5pt minus3pt%
  143. \let\@listi\@listI} %
  144. \def\small{\@setsize\small{13.6pt}\xipt\@xipt
  145. \abovedisplayskip 11pt plus3pt minus6pt%
  146. \belowdisplayskip \abovedisplayskip
  147. \abovedisplayshortskip \z@ plus3pt%
  148. \belowdisplayshortskip 6.5pt plus3.5pt minus3pt%
  149. \def\@listi{\leftmargin\leftmargini %
  150. \parsep 4.5pt plus 2pt minus 1pt
  151. \itemsep \parsep
  152. \topsep 9pt plus 3pt minus 5pt}}
  153. \def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
  154. \abovedisplayskip 10pt plus2pt minus5pt%
  155. \belowdisplayskip \abovedisplayskip
  156. \abovedisplayshortskip \z@ plus3pt%
  157. \belowdisplayshortskip 6pt plus3pt minus3pt%
  158. \def\@listi{\leftmargin\leftmargini %
  159. \topsep 6pt plus 2pt minus 2pt\parsep 3pt plus 2pt minus 1pt
  160. \itemsep \parsep}}
  161. \def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
  162. \def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
  163. \def\large{\@setsize\large{18pt}\xivpt\@xivpt}
  164. \def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
  165. \def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
  166. \def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
  167. \let\Huge=\huge
  168. \fi
  169. \normalsize %
  170. \marginparwidth 90pt %
  171. \marginparsep 11pt %
  172. \marginparpush 5pt %
  173. \footheight 12pt %
  174. \footskip 25pt %
  175. \footnotesep 12pt %
  176. \skip\footins 10pt plus 2pt minus 4pt %
  177. \floatsep 12pt plus 2pt minus 2pt
  178. \textfloatsep 20pt plus 2pt minus 4pt
  179. \intextsep 12pt plus 2pt minus 2pt
  180. \@maxsep 20pt
  181. \@fptop 0pt plus 1fil
  182. \@fpsep 8pt plus 2fil
  183. \@fpbot 0pt plus 1fil
  184. \parindent 0pt %
  185. \partopsep 0pt %
  186. \@lowpenalty 51 %
  187. \@medpenalty 151 %
  188. \@highpenalty 301 %
  189. \@beginparpenalty -\@lowpenalty %
  190. \@endparpenalty -\@lowpenalty %
  191. \@itempenalty -\@lowpenalty %
  192. \def\theequation{\arabic{equation}}
  193. \arraycolsep 5pt %
  194. \arrayrulewidth .4pt %
  195. \doublerulesep 2pt %
  196. \skip\@mpfootins = \skip\footins
  197. \fboxsep = 3pt %
  198. \fboxrule = .4pt %
  199. \def\footnoterule{\kern-1\p@ 
  200. \hrule width .4\columnwidth 
  201. \kern .6\p@} %
  202. \long\def\@makefntext#1{\noindent %
  203. \hangindent 5pt\hbox 
  204. to 5pt{\hss $^{\@thefnmark}$}#1}
  205. \def\today{\ifcase\month\or
  206. January\or February\or March\or April\or May\or June\or
  207. July\or August\or September\or October\or November\or December\fi
  208. \space\number\day, \number\year}
  209. \pagenumbering{arabic} %
  210. \onecolumn %
  211. \newwrite\@mainmlb
  212. \newlength{\@lengthlabel}
  213. \newlength{\@lengthrule}
  214. \newlength{\@lengthdate}
  215. \newlength{\@lengthname}
  216. \newcounter{@countlist}
  217. \newcount\@countverticalposition
  218. \newcount\@countbotheader
  219. \newcount\@countclassseptop
  220. \newcount\@countclasssepbot
  221. \newcount\@counttemp
  222. \newcount\@countto
  223. \newcount\@countattn
  224. \newcount\@countattnsave
  225. \newcount\@countthru
  226. \newcount\@counttelephone
  227. \newcount\@countcy
  228. \newcount\@countvia
  229. \newcount\@countattachments
  230. \newcount\@countreference
  231. \newcount\@countenc
  232. \newcount\@countdistribution
  233. \newcount\@countrightcolon
  234. \newcount\@countleftheader
  235. \newcount\@countrightheader
  236. \newcount\@countpictorig
  237. \newcount\@countletterlist
  238. \newcount\@countleftto
  239. \newcount\@countrightto
  240. \newcount\@counttemptwo
  241. \newcount\@countcoltemp
  242. \newcount\@countreturnaddress
  243. \newcount\@countskiplabels
  244. \newtoks\@toksto
  245. \newtoks\@toksattn
  246. \newtoks\@toksattnsave
  247. \newtoks\@toksthru
  248. \newtoks\@tokscy
  249. \newtoks\@tokstelephone
  250. \newtoks\@toksvia
  251. \newtoks\@toksattachments
  252. \newtoks\@toksenc
  253. \newtoks\@toksreference
  254. \newtoks\@toksdistribution
  255. \newtoks\@tokspagetwoheader
  256. \newtoks\@toksbeforenewline
  257. \newtoks\@toksafternewline
  258. \newtoks\@toksaftersave
  259. \newtoks\@toksempty
  260. \newtoks\@toksblank
  261. \newtoks\@toksnewline
  262. \newtoks\@toksremaining
  263. \newtoks\@toksitem
  264. \newtoks\@toksbeforeendto
  265. \newtoks\@toksafterendto
  266. \newtoks\@toksbeforecomma
  267. \newtoks\@toksleftto
  268. \newtoks\@toksrightto
  269. \newtoks\@tokstemp
  270. \newtoks\@tokscoltemp
  271. \newtoks\@toksreturnaddress
  272. \newsavebox{\@boxtemp}
  273. \newsavebox{\@boxclasspage}
  274. \newsavebox{\@boxpagetwoheader}
  275. \newdimen\@dimentoppagetwo
  276. \newdimen\@dimenpagetwoheader
  277. \newdimen\@dimenfirstpageleftheader
  278. \newdimen\@dimenwdtt
  279. \newdimen\@dimenletterpaperhcorr
  280. \newdimen\@dimenletterpapervcorr
  281. \newdimen\@dimenspaceaftercolon
  282. \newdimen\descriptionmargin
  283. \newdimen\@dimenversemargin
  284. \newdimen\@dimentocolsep
  285. \newdimen\@dimenhspacesig
  286. \newdimen\@dimenexpandside
  287. \newdimen\@dimenexpandtopmargin
  288. \newdimen\@dimentemp
  289. \newdimen\@headsepfirst
  290. \newdimen\@textheightfirst
  291. \newdimen\@dimenmaillabelheight
  292. \newdimen\@dimenmaillabeltopmargin
  293. \newdimen\@bodysep
  294. \newskip\@baselineskipsave
  295. \newskip\@parskipsave
  296. \newskip\@topskipfirst
  297. \newif\if@newline
  298. \newif\if@comma
  299. \newif\if@notvoidtoks
  300. \newif\if@toksnotequal
  301. \newif\if@beenhere
  302. \newif\if@somethingbefore
  303. \newif\if@continueloop
  304. \newif\if@cmfonts
  305. \newif\if@closing
  306. \newif\if@everyindent
  307. \newif\if@printingto
  308. \newif\if@neveropened
  309. \newif\if@newtemp
  310. \newif\if@newattn
  311. \newif\if@newtelephone
  312. \newif\if@newcy
  313. \newif\if@newattachments
  314. \newif\if@newreference
  315. \newif\if@newdistribution
  316. \newif\if@newenc
  317. \newif\if@newthru
  318. \newif\if@newvia
  319. \newif\if@newrightto
  320. \newif\if@newleftto
  321. \newif\if@newto
  322. \newif\if@makemaillabels
  323. \newif\if@outputfirstpage%
  324. \newif\if@outputlastpage%
  325. \newif\if@newreturnaddress
  326. \let\@mlbout=\@mainmlb
  327. \clubpenalty=10000
  328. \widowpenalty=10000
  329. \topmargin -72pt%
  330. \textheight=724pt
  331. \@textheightfirst=\textheight
  332. \topskip=0pt
  333. \@topskipfirst=\topskip
  334. \headsep=0pt
  335. \@headsepfirst=\headsep
  336. \headheight 0pt
  337. \footskip 43pt
  338. \textwidth 438pt
  339. \@countverticalposition 0
  340. \@toksempty={}
  341. \@toksblank={ }
  342. \@toksnewline={\\}
  343. \@dimenpagetwoheader 180pt
  344. \@dimenfirstpageleftheader 220pt
  345. \@dimenexpandside=0pt
  346. \@dimenexpandtopmargin=0pt
  347. \@countleftheader=87
  348. \@countrightcolon=404
  349. \@countbotheader 104
  350. \@dimenletterpaperhcorr 0pt
  351. \@dimenletterpapervcorr 0pt
  352. \@dimenspaceaftercolon 12pt
  353. \@everyindentfalse
  354. \@printingtofalse
  355. \@neveropenedtrue
  356. \@newtemptrue
  357. \@newattntrue
  358. \@newtelephonetrue
  359. \@newcytrue
  360. \@newattachmentstrue
  361. \@newreferencetrue
  362. \@newdistributiontrue
  363. \@newenctrue
  364. \@newthrutrue
  365. \@newviatrue
  366. \@newrighttotrue
  367. \@newlefttotrue
  368. \@newtotrue
  369. \@newreturnaddresstrue
  370. \@makemaillabelsfalse
  371. \@dimentocolsep=24pt
  372. \def\@blank{ }%
  373. \def\@tt{tt}\def\@rm{rm}%
  374. \def\@texfonts{texfonts}%
  375. \def\@lafonts{lafonts}\def\@postscript{postscript}%
  376. \def\@letterpaper{letterpaper}%
  377. \def\@useto{to}\def\@usesubject{subject}\def\@useattn{attn}%
  378. \def\to#1{%
  379. \if@newto\@resettovars\fi
  380. \ifnum\@countleftto>0 \@errortoleftrightto\@tokstoinput{leftto}{#1}%
  381. \else\ifnum\@countrightto>0 \@errortoleftrightto\@tokstoinput{leftto}{#1}%
  382. \else \@tokstoinput{to}{#1}%
  383. \fi\fi}%
  384. \def\leftto#1{%
  385. \if@newleftto\@resettovars\fi
  386. \ifnum\@countto>0 \@totoleftto\fi \@tokstoinput{leftto}{#1}}%
  387. \def\rightto#1{%
  388. \if@newrightto\@resettovars\fi
  389. \ifnum\@countto>0 \@totoleftto\fi \@tokstoinput{rightto}{#1}}%
  390. \def\attn#1{\if@printingto Attn: #1\@toksinput{attn}{#1}\else\@errorattn\fi
  391. \global\@countattn=\@countattn}%
  392. \def\telephone#1{\@toksinput{telephone}{#1}}%
  393. \def\cy#1{\@toksinput{cy}{#1}}%
  394. \def\via#1{\@tokstoinput{via}{#1}}%
  395. \def\thru#1{\@tokstoinput{thru}{#1}}%
  396. \def\attachments#1{\@toksinput{attachments}{#1}}%
  397. \def\reference#1{\@toksinput{reference}{#1}}%
  398. \def\distribution#1{\@toksinput{distribution}{#1}}%
  399. \def\enc#1{\@toksinput{enc}{#1}}%
  400. \def\returnaddress#1{\@toksreturnaddress={}\@countreturnaddress=0
  401. \@toksinput{returnaddress}{#1}}%
  402. \def\typeface#1{\def\@typeface{#1}%
  403. \@unspaceleft\@typeface \@unspaceright\@typeface}%
  404. \def\headerfonts#1{\def\@headerfonts{#1}%
  405. \@unspaceleft\@headerfonts \@unspaceright\@headerfonts}%
  406. \def\bodyfonts#1{\def\@bodyfonts{#1}%
  407. \@unspaceleft\@bodyfonts \@unspaceright\@bodyfonts
  408. \ifx\@bodyfonts\@postscript \@psdefclasslabel\fi}%
  409. \def\nocallouts{\def\@nocallouts{}}%
  410. \def\usetoasheader{\def\@useasheader{to}}%
  411. \def\useattnasheader{\def\@useasheader{attn}}%
  412. \def\usesubjectasheader{\def\@useasheader{subject}}%
  413. \def\useotherasheader#1{\def\@useasheader{#1}}%
  414. \def\subject#1{%
  415. \def\@subjectorig{#1}%
  416. \def\@subject{\uppercase{#1}}%
  417. \ifx\@subjectorig\@blank\def\@subject{}\fi
  418. \ifx\@subjectorig\@empty\def\@subject{}\fi}%
  419. \def\salutation#1{\def\@salutation{#1}}%
  420. \def\symbol#1{\def\@symbol{#1}\@unspaceright\@symbol
  421. \@unspaceleft\@symbol}%
  422. \def\serialnumber#1{\def\@serialnumber{#1}\@unspaceleft\@serialnumber
  423. \@unspaceright\@serialnumber}%
  424. \def\mailstop#1{\def\@mailstop{#1}\@unspaceright\@mailstop
  425. \@unspaceleft\@mailstop}%
  426. \def\date#1{\def\@date{#1}\@unspaceleft\@date}%
  427. \def\expandwidth#1{\@ifnoinfo{#1}{\@dimenexpandside=0pt}{%
  428. \@dimenexpandside=#1 \divide\@dimenexpandside by 2
  429. \advance \textwidth by #1}}%
  430. \def\expandtopmargin#1{%
  431. \@ifnoinfo{#1}{\@dimenexpandtopmargin=0pt}{\@dimenexpandtopmargin=#1}}%
  432. \def\shortletterstyle{\def\@shortletterstyle{}}%
  433. \def\noclearpage{\def\@noclearpage{}}%
  434. \def\signer#1{\def\@signer{#1}%
  435. \@unspaceright\@signer\@upperunspaceleft\@signer}%
  436. \def\originator#1{%
  437. \def\@originator{#1}%
  438. \@unspaceright\@originator
  439. \@upperunspaceleft\@originator}%
  440. \def\typist#1{%
  441. \def\@typist{#1}%
  442. \ifx\@typist\@empty
  443. \else
  444. \ifx\@typist\@blank
  445. \def\@typist{}%
  446. \else
  447. \def\@typist{\lowercase{\ignorespaces#1}}%
  448. \fi\fi}%
  449. \def\letterpaperhcorr#1{\@ifnoinfo{#1}%
  450. {\@dimenletterpaperhcorr=0pt}{\@dimenletterpaperhcorr=#1}}%
  451. \def\letterpapervcorr#1{\@ifnoinfo{#1}%
  452. {\@dimenletterpapervcorr=0pt}{\@dimenletterpapervcorr=#1}}%
  453. \def\complimentaryclose#1{\def\@complimentaryclose{#1}}%
  454. \def\signature#1{\def\@signature{#1}}%
  455. \def\cypagebreak{\def\@cypagebreak{}}%
  456. \def\attachmentspagebreak{\def\@attachmentspagebreak{}}%
  457. \def\encpagebreak{\def\@encpagebreak{}}%
  458. \def\distributionpagebreak{\def\@distributionpagebreak{}}%
  459. \def\encas{\def\@encas{}}%
  460. \def\attachmentas{\def\@attachmentas{}}%
  461. \def\attachmentsas{\def\@attachmentsas{}}%
  462. \def\encpagebreak{\def\@encpagebreak{}}%
  463. \def\makemaillabels{\@makemaillabelstrue}
  464. \def\maillabelheight#1{\@ifnoinfo{#1}%
  465. {\maillabelheight{1.5in}}{\@dimenmaillabelheight=#1}}%
  466. \def\maillabeltopmargin#1{\@ifnoinfo{#1}%
  467. {\maillabeltopmargin{.25in}}{\@dimenmaillabeltopmargin=#1}}%
  468. \def\skiplabels#1{\@ifnoinfo{#1}%
  469. {\@countskiplabels=0}{\@countskiplabels=#1}}%
  470. \def\classlabel#1{%
  471. \def\@unspacedclasslabel{#1}%
  472. \@unspaceleft{\@unspacedclasslabel}%
  473. \@unspaceright{\@unspacedclasslabel}%
  474. \@ifundefined{@classlabel}%
  475. {}{\def\@todieornottodie{\@errortwoclasses\@exit}}%
  476. \def\@secret{s}\def\@confidential{c}\def\@unclassified{u}%
  477. \ifx\@unspacedclasslabel\@secret%
  478. \def\@classlabel{SECRET}%
  479. \typeout{^^JThis letter will be marked SECRET.^^J}%
  480. \else\ifx\@unspacedclasslabel\@confidential%
  481. \def\@classlabel{CONFIDENTIAL}%
  482. \typeout{^^JThis letter will be marked CONFIDENTIAL.^^J}%
  483. \else\ifx\@unspacedclasslabel\@unclassified%
  484. \def\@classlabel{UNCLASSIFIED}%
  485. \typeout{^^JThis letter will be marked UNCLASSIFIED.^^J}%
  486. \else\ifx\@unspacedclasslabel\@empty%
  487. \def\@classlabel{}%
  488. \else 
  489. \def\@todieornottodie{%
  490. \def\@classlabel{#1}%
  491. \@errorclassargument
  492. \@exit}%
  493. \fi\fi\fi\fi
  494. \@todieornottodie
  495. }%
  496. \def\@toksinput#1#2{%
  497. \def\@toksname{\csname @toks#1\endcsname}%
  498. \def\@countname{\csname @count#1\endcsname}%
  499. \def\@ifnewname{\csname if@new#1\endcsname}%
  500. \def\@newnamefalse{\csname @new#1false\endcsname}%
  501. \def\@newnametrue{\csname @new#1true\endcsname}%
  502. \@ifnewname
  503. \@newnamefalse
  504. \@countname=0
  505. \@toksname={}%
  506. \else
  507. \@addtotoks\@toksname\\
  508. \fi
  509. \@beenherefalse
  510. \@toksremaining={#2}%
  511. \loop
  512. \@tonewlinepull\@toksremaining
  513. \@somethingbeforefalse
  514. \@toksnotequal\@toksbeforenewline\@toksempty
  515. \if@toksnotequal
  516. \@toksnotequal\@toksbeforenewline\@toksblank
  517. \if@toksnotequal
  518. \@somethingbeforetrue
  519. \fi\fi
  520. \if@somethingbefore
  521. \if@beenhere
  522. \@addtotoks\@toksname\\
  523. \else
  524. \@beenheretrue
  525. \fi
  526. \@addtokstotoks\@toksname\@toksbeforenewline
  527. \@continuelooptrue
  528. \advance\@countname by 1
  529. \else
  530. \@toksnotequal\@toksafternewline\@toksempty%
  531. \if@toksnotequal
  532. \@toksnotequal\@toksafternewline\@toksnewline%
  533. \if@toksnotequal
  534. \@continuelooptrue%
  535. \else
  536. \@continueloopfalse%
  537. \fi
  538. \else
  539. \@continueloopfalse%
  540. \fi\fi
  541. \if@continueloop
  542. \@toksremaining=\@toksafternewline
  543. \repeat
  544. }%
  545. \def\@resettovars{%
  546. \@newtofalse\@countto=0\@toksto={}%
  547. \@newlefttofalse\@countleftto=0\@toksleftto={}%
  548. \@newrighttofalse\@countrightto=0\@toksrightto={}%
  549. }
  550. \def\@tokstoinput#1#2{%
  551. \edef\@tokstoname{\csname @toks#1\endcsname}%
  552. \edef\@counttoname{\csname @count#1\endcsname}%
  553. \@newtemptrue
  554. \@toksinput{temp}{#2}%
  555. \@toksnotequal\@tokstemp\@toksempty
  556. \if@toksnotequal
  557. \@addtokstotoks\@tokstoname\@tokstemp
  558. \@addtotoks\@tokstoname\@endto
  559. \advance\@counttoname by 1
  560. \fi
  561. }%
  562. \def\@totoleftto{%
  563. \@errortoleftrightto
  564. \@toksleftto=\@toksto
  565. \@toksto={}%
  566. \@countleftto=\@countto
  567. \@countto=0}%
  568. \def\opening{%
  569. \@checkinput
  570. \if@neveropened
  571. \@neveropenedfalse
  572. \@choosefonts
  573. \fi
  574. \@initializefontvariables
  575. \@initializeothervariables
  576. \@baselineskipsave=\baselineskip
  577. \@parskipsave=\parskip
  578. \@closingfalse
  579. \lineskip=0pt
  580. \@printfirstpageheader
  581. \@checkuseasinput
  582. \@makepagetwoheader
  583. \@beginletter
  584. \lineskip=\normallineskip
  585. }%
  586. \def\closing{%
  587. \normalsize
  588. \@closingtrue
  589. \@endletter
  590. \@clearclosing
  591. \leftskip=\@dimenhspacesig
  592. \@printcompclose
  593. \@printsignature
  594. \par
  595. \leftskip=0pt
  596. \@printoriginatorline
  597. \@printenc
  598. \@printattachments
  599. \@printdistribution
  600. \@printcy
  601. \@settrue
  602. \@restorevariables
  603. \@multipleletters
  604. }%
  605. \def\@restorevariables{%
  606. \@countattn=0
  607. \@toksattn={}%
  608. }%
  609. \def\@multipleletters{%
  610. \def\@citex[##1]##2{%
  611. \def\@citea{}\@cite{\@for\@citeb:=##2\do
  612. {\@citea\def\@citea{,\penalty\@m\ }\@ifundefined
  613. {b@\@citeb}{{\bf ?}\@warning
  614. {Citation `\@citeb' on page \thepage \space undefined}}%
  615. \hbox{\csname b@\@citeb\endcsname}}}{##1}}%
  616. \def\addcontentsline##1##2##3{}%
  617. \def\label##1{\@bsphack\@esphack}%
  618. \def\@lbibitem[##1]##2{\item[\@biblabel{##1}]\ignorespaces}%
  619. \def\@bibitem##1{\item\ignorespaces}%
  620. \setcounter{figure}{0}%
  621. \setcounter{table}{0}%
  622. \setcounter{footnote}{0}%
  623. \setcounter{equation}{0}%
  624. }%
  625. \def\@checkinput{%
  626. \ifnum\@countvia>0 %
  627. \ifnum\@countthru>0 %
  628. \@errorthruandvia
  629. \fi\fi
  630. \@ifemptyorundefined{@salutation}%
  631. {\@errorundeclaredsalutation}{}%
  632. \@ifemptyorundefined{@complimentaryclose}%
  633. {\def\@complimentaryclose{Sincerely yours,}\@errorundeclaredcompclose}{}%
  634. \@ifemptyorundefined{@signature}{\@errorundeclared{\signature}%
  635. \@errorshowexample{\signature}{Betty J. Donaldson}}{}%
  636. \@ifemptyorundefined{@signer}{\@errorundeclared{\signer}%
  637. \@errorshowexample{\signer}{BJD}}{}%
  638. \ifnum\@countto=0\ifnum\@countleftto=0\ifnum\@countrightto=0 %
  639. \@errorundeclaredto\fi\fi\fi
  640. \@ifundefined{@symbol}{\def\@symbol{}}{}%
  641. \@ifundefined{@nocallouts}{%
  642. \ifx\@symbol\@empty
  643. \@errorundeclaredcallout{\symbol}\@errorshowexample{\symbol}{C-2}%
  644. \fi
  645. \@ifemptyorundefined{@mailstop}%
  646. {\def\@mailstop{}\@errorundeclaredcallout{\mailstop}%
  647. \@errorshowexample{\mailstop}{B253}}{}%
  648. \ifnum\@counttelephone=0 %
  649. \@tokstelephone={}%
  650. \@errorundeclaredcallout{\telephone}%
  651. \@errorshowexample{\telephone}{(505) 665-0859}%
  652. \fi
  653. }{}%
  654. \@ifundefined{@subject}{\def\@subject{}}{}%
  655. \@ifundefined{@originator}%
  656. {\def\@originator{}}{}%
  657. \@ifemptyorundefined{@signer}%
  658. {\def\@signer{}}{}%
  659. \@ifundefined{@typist}%
  660. {\def\@typist{}}{}%
  661. \@ifemptyorundefined{@date}{\def\@date{\today}}%
  662. {\ifx\@date\@empty\def\@date{\today}\fi}%
  663. \@ifemptyorundefined{@serialnumber}%
  664. {\def\@serialnumber{}}{\ifx\@symbol\@empty \@errorserialnosymbol\fi}%
  665. \def\@symbolserialnumber{%
  666. \@symbol
  667. \ifx\@symbol\@empty
  668. \else
  669. \ifx\@serialnumber\@empty
  670. \else
  671. -\relax
  672. \fi\fi
  673. \@serialnumber\ }%
  674. \@ifundefined{@typeface}{\def\@typeface{tt}}{}%
  675. \ifx\@typeface\@empty\def\@typeface{tt}\fi%
  676. \@ifundefined{@headerfonts}{\def\@headerfonts{texfonts}}{}%
  677. \ifx\@headerfonts\@empty\def\@headerfonts{texfonts}\fi%
  678. \@ifundefined{@bodyfonts}{\def\@bodyfonts{texfonts}}{}%
  679. \ifx\@bodyfonts\@empty\def\@bodyfonts{texfonts}\fi
  680. }%
  681. \def\@checkuseasinput{%
  682. \@ifundefined{@useasheader}{\def\@useasheader{to}}{%
  683. \ifx\@useasheader\@useattn
  684. \ifnum\@countattn=0 %
  685. \@erroruseas{attn}{\attn}\def\@useasheader{to}%
  686. \fi
  687. \else\ifx\@useasheader\@usesubject
  688. \ifx\@subject\@empty
  689. \@erroruseas{subject}{\subject}\def\@useasheader{to}%
  690. \fi
  691. \fi\fi
  692. }}%
  693. \def\@choosefonts{%
  694. \@amorcm
  695. \@getpostscriptnames
  696. \@chooseheaderfonts
  697. \@choosebodyfonts
  698. \@setnormalsize
  699. }%
  700. \def\@amorcm{%
  701. \edef\@cmr{\csname cmr10\endcsname}%
  702. \edef\@tenrm{\csname\fontname\tenrm\endcsname}%
  703. \ifx\@cmr\@tenrm \@cmfontstrue\else\@cmfontsfalse\fi
  704. \if@cmfonts
  705. \else\ifx\@bodyfonts\@texfonts
  706. \@erroramfonts
  707. \else\ifx\@headerfonts\@texfonts
  708. \@erroramfonts
  709. \fi\fi\fi
  710. }%
  711. \def\@getpostscriptnames{%
  712. \def\@cmhelv{psmhlv }%
  713. \def\@cmhelvb{psmhlvb }%
  714. \def\@cmtimer{psmtimr }%
  715. \def\@cmtimei{psmtimi }%
  716. \def\@cmtimeb{psmtimb }%
  717. \def\@cmcour{psmcou }%
  718. \def\@cmcouro{psmcouo }%
  719. \def\@cmcourb{psmcoub }%
  720. }%
  721. \def\@chooseheaderfonts{%
  722. \ifx\@headerfonts\@letterpaper
  723. \else\ifx\@headerfonts\@lafonts
  724. \font\@booksix=book6%
  725. \font\@bookseven=book7%
  726. \font\@lettertwentyeight=memo28%
  727. \font\@latwentyeight=la28%
  728. \font\@spectwelve=spec12%
  729. \else\ifx\@headerfonts\@texfonts
  730. \if@cmfonts
  731. \font\@booksix=cmr6%
  732. \font\@bookseven=cmr7%
  733. \font\@latwentyeight=cmbx10 scaled\magstep5%
  734. \font\@memotwentyeight=cmbx10 scaled\magstep5%
  735. \font\@spectwelve=cmss10 scaled\magstep1%
  736. \else
  737. \font\@booksix=amr6%
  738. \font\@bookseven=amr7%
  739. \font\@latwentyeight=ambx10 scaled\magstep5%
  740. \font\@memotwentyeight=ambx10 scaled \magstep5%
  741. \font\@spectwelve=amss10 scaled\magstep1%
  742. \fi
  743. \else\ifx\@headerfonts\@postscript
  744. \font\@booksix=\@cmhelv at 6pt%
  745. \font\@bookseven=\@cmhelv at 7pt%
  746. \font\@lettertwentyeight=\@cmhelvb at 28pt%
  747. \font\@spectwelve=\@cmhelv at 10.5pt%
  748. \else%
  749. \def\@todieornottodie{\@errorillegalheaderfont\@exitfi}%
  750. \fi\fi\fi\fi
  751. \@todieornottodie
  752. }%
  753. \def\@choosebodyfonts{%
  754. \ifx\@typeface\@tt
  755. \else\ifx\@typeface\@rm
  756. \else
  757. \def\@todieornottodie{\@errorillegaltypeface\@exitfi}%
  758. \fi\fi
  759. \@todieornottodie
  760. \ifx\@bodyfonts\@texfonts
  761. \if@cmfonts
  762. \font\@classfont=cmss10 scaled \magstep5%
  763. \else
  764. \font\@classfont=amssmc40
  765. \fi
  766. \else\ifx\@bodyfonts\@postscript
  767. \ifcase\@ptsize\relax %
  768. \font\tenrm = \@cmtimer at 10pt %
  769. \font\tentt = \@cmcour at 10pt %
  770. \ifx\@typeface\@tt
  771. \font\tenit = \@cmcouro at 10pt %
  772. \font\tenbf = \@cmcourb at 10pt %
  773. \else\ifx\@typeface\@rm
  774. \font\tenit = \@cmtimei at 10pt %
  775. \font\tenbf = \@cmtimeb at 10pt %
  776. \fi\fi
  777. \or %
  778. \font\elvrm = \@cmtimer at 11pt %
  779. \font\elvtt = \@cmcour at 11pt %
  780. \ifx\@typeface\@tt
  781. \font\elvit = \@cmcouro at 11pt %
  782. \font\elvbf = \@cmcourb at 11pt %
  783. \else\ifx\@typeface\@rm
  784. \font\elvit = \@cmtimei at 11pt %
  785. \font\elvbf = \@cmtimeb at 11pt %
  786. \fi\fi
  787. \or %
  788. \font\twlrm = \@cmtimer at 12pt %
  789. \font\twltt = \@cmcour at 12pt %
  790. \ifx\@typeface\@tt
  791. \font\twlit = \@cmcouro at 12pt %
  792. \font\twlbf = \@cmcourb at 12pt %
  793. \else\ifx\@typeface\@rm
  794. \font\twlit = \@cmtimei at 12pt %
  795. \font\twlbf = \@cmtimeb at 12pt %
  796. \fi\fi
  797. \fi
  798. \else
  799. \def\@todieornottodie{\@errorillegalbodyfont\@exitfi}%
  800. \fi\fi
  801. \@todieornottodie
  802. }%
  803. \def\@setnormalsize{%
  804. \edef\normalsize{%
  805. \ifx\@currsize\normalsize
  806. \ifx\@typeface\@tt
  807. \tt
  808. \else\ifx\@typeface\@rm
  809. \rm
  810. \fi\fi
  811. \else 
  812. \@normalsize
  813. \fi}}%
  814. \def\@initializefontvariables{%
  815. \raggedbottom
  816. \@kernheaderwords
  817. \@initializetypefacedependencies
  818. \def\pem{%
  819. \ifdim\fontdimen\@ne\font>\z@
  820. \csname\@typeface\endcsname 
  821. \else\it
  822. \fi
  823. }}%
  824. \def\@kernheaderwords{%
  825. \ifx\@headerfonts\@texfonts
  826. \def\@lanl{%
  827. \raise 1pt\hbox{%
  828. \def\@kern{\kern -.5pt}%
  829. L\@kern o\@kern s\ \kern -2.5pt A\@kern l\@kern a\@kern m\@kern
  830. o\@kern s\ \kern -2pt N\@kern a\@kern t\@kern i\@kern o\@kern
  831. n\@kern a\@kern l\ \kern -3pt L\@kern a\@kern b\@kern o\@kern
  832. r\@kern a\@kern t\@kern o\@kern r\@kern y}}%
  833. \def\@lanm{%
  834. \def\@kern{\kern -.5pt}%
  835. L\@kern o\@kern s\kern -2.5pt\ A\@kern l\@kern a\@kern m\@kern
  836. o\@kern s\kern -1pt ,\kern -4.5pt\ New\kern -3pt\ Mexico\kern -3pt
  837. \ 87545}%
  838. \def\@losalamos{Los Alamos}%
  839. \else\ifx\@headerfonts\@lafonts
  840. \@spectwelve\setbox\@boxtemp=\hbox{L}\@dimentemp=\wd\@boxtemp
  841. \advance\@dimentemp by -5.3368pt
  842. \ifdim\@dimentemp<0pt \@dimentemp=-\@dimentemp\fi
  843. \ifdim\@dimentemp<.001pt
  844. \def\@lanl{%
  845. L\kern -.4pt o\kern .35pt s\ \kern -.8pt 
  846. A\kern .6pt l\kern .1pt a\kern .6pt m\kern .1pt o\kern .35pt s%
  847. \def\@kern{\kern .22pt}%
  848. \ N\@kern a\@kern t\@kern i\@kern o\@kern n\@kern a\kern .47pt
  849. l\ \kern -.2pt 
  850. \def\@kern{\kern .03pt}%
  851. L\@kern a\kern .43pt b\@kern o\@kern r\@kern a\@kern
  852. t\kern -.22pt o\@kern r\@kern y}%
  853. \def\@lanm{%
  854. L\kern -.4pt o\kern .35pt s\ \kern -.8pt 
  855. \def\@kern{\kern .35pt}%
  856. A\kern .6pt l\kern .1pt a\kern .6pt m\kern .1pt o\kern .35pt s,%
  857. \ \kern -1.5pt 
  858. N\kern -.2pt ew\ \kern -.1pt 
  859. \def\@kern{\kern .15pt}%
  860. M\kern -.05pt e\@kern x\@kern i\@kern c\@kern o\ \kern -.1pt 
  861. 8\kern -.65pt 7\kern -.9pt 54\kern -.7pt 5}%
  862. \def\@losalamos{%
  863. \kern -1.2pt L\kern 0pt o\kern -.75pt s\ \kern -6.7pt 
  864. A\kern .25pt l\kern 1.25pt a\kern -.85pt m\kern -.65pt
  865. o\kern -.75pt s}%
  866. \else
  867. \def\@todieornottodie{\@erroroldlafonts\@exit}%
  868. \fi
  869. \else\ifx\@headerfonts\@postscript
  870. \def\@lanl{%
  871. \raise .5pt\hbox{%
  872. Los\kern -2pt\ Alamos\kern -1.5pt\ National\kern -2pt
  873. \ Laboratory}}%
  874. \def\@lanm{%
  875. \def\@kern{\kern .57pt}%
  876. Los\kern -2pt\ Alamos\kern -1pt,\kern -3.5pt\ N\@kern e\@kern
  877. w\kern -2pt\ M\@kern e\@kern x\@kern i\@kern c\@kern
  878. o\kern -2pt\ 87545}%
  879. \def\@PSlosalamos##1##2{%
  880. \@psdeflosalamos
  881. \special{ps:: ##1 ##2 @LOSALAMOS1 @LOSALAMOS2 @LOSALAMOS3}}%
  882. \fi\fi\fi
  883. \@todieornottodie
  884. }%
  885. \def\@initializetypefacedependencies{%
  886. \ifx\@typeface\@tt
  887. \rightskip=0pt plus 3.6em%
  888. \@rightskip=\rightskip
  889. \hyphenchar\nintt=\defaulthyphenchar
  890. \hyphenchar\tentt=\defaulthyphenchar
  891. \hyphenchar\elvtt=\defaulthyphenchar
  892. \hyphenchar\twltt=\defaulthyphenchar
  893. \ifx\@bodyfonts\@texfonts
  894. \def\@bullet{\leavevmode\raise-.22ex\hbox to 0pt{+\hss}o}%
  895. \else\ifx\@bodyfonts\@postscript
  896. \def\@bullet{\leavevmode\raise-.19ex\hbox to 0pt{+\hss}o}%
  897. \fi\fi
  898. \fi
  899. \@initializelists
  900. }%
  901. \def\@initializelists{%
  902. \setbox\@boxtemp=\hbox{\tt n}\@dimenwdtt=\wd\@boxtemp
  903. \ifx\@typeface\@tt
  904. \parskip=\baselineskip
  905. \leftmargini 4\@dimenwdtt
  906. \leftmarginii 4\@dimenwdtt
  907. \leftmarginiii 4\@dimenwdtt
  908. \leftmarginiv 4\@dimenwdtt
  909. \leftmarginv 4\@dimenwdtt
  910. \leftmarginvi 4\@dimenwdtt
  911. \leftmargin\leftmargini
  912. \labelwidth\leftmargini\advance\labelwidth-\labelsep
  913. \labelsep=\@dimenwdtt
  914. \parsep=\baselineskip
  915. \topsep 0pt
  916. \itemsep 0pt
  917. \@bodysep 0pt
  918. \descriptionmargin=5\@dimenwdtt
  919. \@dimentemp=\@dimenwdtt
  920. \else\ifx\@typeface\@rm
  921. \parskip=.7em
  922. \@parskipsave=\parskip
  923. \def\@bullet{$\bullet$}%
  924. \leftmargini 2.5em
  925. \leftmarginii 2.2em %
  926. \leftmarginiii 1.87em %
  927. \leftmarginiv 1.7em %
  928. \leftmarginv 1em
  929. \leftmarginvi 1em
  930. \leftmargin\leftmargini
  931. \labelwidth\leftmargini\advance\labelwidth-\labelsep
  932. \labelsep 5pt
  933. \topsep .4em
  934. \@bodysep .8em
  935. \parsep .4em
  936. \itemsep .2em
  937. \descriptionmargin=3em
  938. \@dimentemp=5pt
  939. \fi\fi
  940. \listparindent=0pt
  941. \let\@listi\relax
  942. \def\@listii{\leftmargin\leftmarginii
  943. \labelwidth\leftmarginii\advance\labelwidth-\labelsep}%
  944. \def\@listiii{\leftmargin\leftmarginiii
  945. \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
  946. \ifx\@typeface\@rm
  947. \topsep .2em 
  948. \itemsep \topsep
  949. \fi}%
  950. \def\@listiv{\leftmargin\leftmarginiv
  951. \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}%
  952. \def\@listv{\leftmargin\leftmarginv
  953. \labelwidth\leftmarginv\advance\labelwidth-\labelsep}%
  954. \def\@listvi{\leftmargin\leftmarginvi
  955. \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}%
  956. \@dimenversemargin=3\@dimentemp
  957. \def\verse{\let\\=\@centercr
  958. \list{}{\itemsep\z@ \itemindent -\@dimenversemargin \listparindent \itemindent 
  959. \rightmargin\leftmargin\advance\leftmargin \@dimenversemargin}\item[]}%
  960. \let\endverse\endlist
  961. \def\quotation{\list{}{%
  962. \rightmargin\leftmargin}\item[]}%
  963. \let\endquotation=\endlist
  964. \tabcolsep \@dimentemp %
  965. \tabbingsep \labelsep %
  966. \def\labelenumi{\arabic{enumi}.}%
  967. \def\theenumi{\arabic{enumi}}%
  968. \def\labelenumii{\alph{enumii}.}%
  969. \def\theenumii{\alph{enumii}}%
  970. \def\p@enumii{\theenumi}%
  971. \def\labelenumiii{(\arabic{enumiii})}%
  972. \def\theenumiii{\roman{enumiii}}%
  973. \def\p@enumiii{\theenumi(\theenumii)}%
  974. \def\labelenumiv{(\alph{enumiv})}%
  975. \def\theenumiv{\Alph{enumiv}}%
  976. \def\p@enumiv{\p@enumiii\theenumiii}%
  977. \def\labelitemi{\@bullet}%
  978. \def\labelitemii{-}%
  979. \def\labelitemiii{*}%
  980. \def\labelitemiv{+}%
  981. \def\quote{\list{}{\rightmargin\leftmargin}\item[]}%
  982. \let\endquote=\endlist
  983. \def\descriptionlabel##1{\hspace\labelsep \it ##1}%
  984. \def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
  985. \let\makelabel\descriptionlabel}}%
  986. \let\enddescription\endlist
  987. }%
  988. \def\@initializeothervariables{%
  989. \let\@texttop=\relax
  990. \@ifundefined{@classlabel}{\def\@classlabel{}}{}%
  991. \def\ps@firstpage{\let\@mkboth\@gobbletwo
  992. \def\@oddhead{\@makeclassheader\@printclasspage}%
  993. \def\@oddfoot{}}%
  994. \def\ps@pagetwo{\let\@mkboth\@gobbletwo
  995. \def\@oddhead{%
  996. \@printpagetwoheader\@printpagenum\@printclasspage}%
  997. \def\@oddfoot{}}%
  998. \pagestyle{pagetwo}%
  999. \@advcountbydimen\@countverticalposition\@dimenletterpapervcorr
  1000. \@advcountbydimen\@countleftheader\@dimenletterpaperhcorr
  1001. \@advcountbydimen\@countrightcolon\@dimenletterpaperhcorr
  1002. \@countrightheader=\@countrightcolon
  1003. \@advcountbydimen\@countrightheader\@dimenspaceaftercolon
  1004. \@countpictorig=\@countleftheader
  1005. \@advcountbydimen\@countpictorig{-\@dimenexpandside}%
  1006. \oddsidemargin=\@countleftheader pt
  1007. \advance \oddsidemargin by -1in
  1008. \advance \oddsidemargin by -\@dimenexpandside
  1009. \evensidemargin=\oddsidemargin
  1010. }%
  1011. \def\@settrue{%
  1012. \@newtemptrue
  1013. \@newattntrue
  1014. \@newtelephonetrue
  1015. \@newtelephonetrue
  1016. \@newcytrue
  1017. \@newattachmentstrue
  1018. \@newreferencetrue
  1019. \@newdistributiontrue
  1020. \@newenctrue
  1021. \@newthrutrue
  1022. \@newviatrue
  1023. \@newrighttotrue
  1024. \@newlefttotrue
  1025. \@newtotrue
  1026. }
  1027. \def\@makeclassheader{%
  1028. \@countclassseptop 24 %
  1029. \@countclasssepbot 40 %
  1030. \@globaladvcountbydimen\@countclasssepbot{-\@dimenletterpapervcorr}%
  1031. \@globaladvcountbydimen\@countclassseptop\@dimenletterpapervcorr
  1032. \ifx\@bodyfonts\@postscript
  1033. \@makePSclassheader
  1034. \else
  1035. \ifx\@classlabel\@empty
  1036. \global\setbox\@boxclasspage=\hbox{\hbox to 0pt{\hss\hss}}%
  1037. \else
  1038. \global\setbox\@boxclasspage=\hbox{\hbox to 0pt{\hss
  1039. \begin{picture}(0,0)(\@countpictorig,0)%
  1040. {%
  1041. \@classfont
  1042. \put (0,-\@countclassseptop)%
  1043. {\makebox(0,0)[tl]{\hbox to 8.5in{\hfil\@classlabel\hfil}}}%
  1044. \@counttemp=-\@countclasssepbot
  1045. \advance\@counttemp by 795 %
  1046. \put (0,-\@counttemp)%
  1047. {\makebox(0,0)[bl]{\hbox to 8.5in{\hfil\@classlabel\hfil}}}%
  1048. }%
  1049. \end{picture}%
  1050. \hss}}%
  1051. \fi\fi
  1052. }%
  1053. \gdef\@psdeflosalamos{%
  1054. \special{ps::[local]%
  1055. /@LOSALAMOS1 {
  1056. /VirginState save def
  1057. /Helvetica-Bold findfont [ 27.7 0 0 29 0 0 ] makefont setfont
  1058. /YC exch neg def %
  1059. /XC exch def %
  1060. } def
  1061. }%
  1062. \special{ps::[local]%
  1063. /@LOSALAMOS2 {
  1064. /MV {moveto} def
  1065. /SO {false charpath stroke} def
  1066. .5 setlinewidth
  1067. XC 87 add YC 716 add translate
  1068. } def
  1069. }%
  1070. \special{ps::[local]%
  1071. /@LOSALAMOS3 {
  1072. 0 0 MV (L) SO
  1073. 15.9 0 MV (o) SO
  1074. 31.8 0 MV (s) SO
  1075. 51.3 0 MV (A) SO
  1076. 70.2 0 MV (l) SO
  1077. 77 0 MV (a) SO
  1078. 91.4 0 MV (m) SO
  1079. 115 0 MV (o) SO
  1080. 130.9 0 MV (s) SO
  1081. VirginState restore
  1082. } def
  1083. }%
  1084. }%
  1085. \def\@psdefclasslabel{%
  1086. \specialbop{ps::[global]%
  1087. /@CLASSOVERLAY1 {
  1088. /VirginState save def
  1089. /Topdist exch def
  1090. /Botdist exch def
  1091. dup (SECRET) eq
  1092. {/Space 3.5 def /X 272 def } %
  1093. {/Space 3 def /X 244 def } %
  1094. ifelse
  1095. /Label exch def
  1096. } def
  1097. }%
  1098. \specialbop{ps::[global]%
  1099. /@CLASSOVERLAY2 {
  1100. /Print { gsave Space 0 Label ashow grestore } def
  1101. /DoubPrint { Print StrikeWidth 0 rmoveto Print } def
  1102. /Scale .415888 def %
  1103. /StrikeWidth 1.4 def %
  1104. } def
  1105. }%
  1106. \specialbop{ps::[global]%
  1107. /@CLASSOVERLAY3 {
  1108. /Helvetica-Bold findfont [29 Scale mul 0 0 29 0 0] makefont setfont
  1109. X 770 Topdist sub moveto 
  1110. DoubPrint
  1111. X Botdist moveto
  1112. DoubPrint
  1113. VirginState restore
  1114. } def
  1115. }%
  1116. }%
  1117. \def\@makePSclassheader{%
  1118. \gdef\@PSclasslabel##1##2##3{%
  1119. \special{ps:: ##1 ##2 ##3 @CLASSOVERLAY1 @CLASSOVERLAY2 @CLASSOVERLAY3}}%
  1120. }%
  1121. \def\@makepagetwoheader{%
  1122. \@tokspagetwoheader={}%
  1123. \ifx\@useasheader\@useto
  1124. \@pullpagetwotoheader
  1125. \else\ifx\@useasheader\@useattn
  1126. \@tokspagetwoheader=\@toksattn
  1127. \else\ifx\@useasheader\@usesubject
  1128. \ifx\@subject\@empty\else\@tokspagetwoheader=\expandafter{\@subjectorig}\fi
  1129. \else
  1130. \@tokspagetwoheader=\expandafter{\@useasheader}%
  1131. \fi\fi\fi
  1132. \savebox{\@boxpagetwoheader}{%
  1133. \begin{minipage}[b]{\textwidth}%
  1134. \normalsize
  1135. \rule{0pt}{72pt}\rule{0pt}{-\ht\strutbox}%
  1136. \parbox[t]{\@dimenpagetwoheader}{%
  1137. \parskip=\@parskipsave
  1138. \the\@tokspagetwoheader\copy\strutbox
  1139. \ifx\@serialnumber\@empty
  1140. \else
  1141. \ifhmode\newline\fi \@symbolserialnumber\copy\strutbox
  1142. \fi
  1143. }%
  1144. \copy\strutbox\hfill
  1145. \makebox[\@dimenpagetwoheader][r]{\hfil\@date}%
  1146. \end{minipage}%
  1147. }%
  1148. \@dimentoppagetwo=\ht\@boxpagetwoheader
  1149. \advance\@dimentoppagetwo by 4\baselineskip
  1150. \advance\@dimentoppagetwo by -\dp\strutbox
  1151. }%
  1152. \def\@printclasspage{%
  1153. \ifx\@bodyfonts\@postscript
  1154. \ifx\@classlabel\@empty
  1155. \else
  1156. \@PSclasslabel{(\@classlabel)}{\the\@countclasssepbot }%
  1157. {\the\@countclassseptop }%
  1158. \fi
  1159. \vbox to 0in{}\hss
  1160. \else
  1161. \vbox to 0in{\hbox to 0pt{\usebox{\@boxclasspage}\hss}\vss}\hss
  1162. \fi
  1163. }%
  1164. \def\@printpagetwoheader{%
  1165. \vbox to 0in{\hbox to 0pt{\usebox{\@boxpagetwoheader}\hss}\vss}%
  1166. }%
  1167. \def\@printpagenum{%
  1168. \vbox to 0pt{\hbox to 0pt{%
  1169. \begin{minipage}[b]{\textwidth}%
  1170. \normalsize
  1171. \rule{0pt}{72pt}\rule{0pt}{-\ht\strutbox}%
  1172. \hfil{- \thepage\ -}\hfil
  1173. \end{minipage}%
  1174. \hss}\vss}%
  1175. }%
  1176. \def\@pullpagetwotoheader{%
  1177. \@pullloop{leftto}%
  1178. \ifnum\@countrightto=0\else
  1179. \@addtotoks\@tokspagetwoheader\\
  1180. \@pullloop{rightto}%
  1181. \fi
  1182. }%
  1183. \def\@pullloop#1{%
  1184. \@tokstemp=\csname @toks#1\endcsname
  1185. \@counttemp=\csname @count#1\endcsname
  1186. \loop
  1187. \ifnum\@counttemp>0 %
  1188. \@toendtopull\@tokstemp
  1189. \@tonewlinepull\@toksbeforeendto
  1190. \@tocommapull\@toksbeforenewline
  1191. \@addtokstotoks\@tokspagetwoheader\@toksbeforecomma
  1192. \ifnum\@counttemp=1\else
  1193. \@addtotoks\@tokspagetwoheader\\
  1194. \fi
  1195. \@tokstemp=\@toksafterendto
  1196. \advance\@counttemp by -1
  1197. \repeat
  1198. }%
  1199. \def\@beginletter{%
  1200. \@ifundefined{@shortletterstyle}{\par}%
  1201. {%
  1202. \ifx\@typeface\@tt
  1203. \topsep=\baselineskip
  1204. \baselineskip=2\baselineskip
  1205. \parindent=5\@dimenwdtt
  1206. \leftmargini=7\@dimenwdtt
  1207. \else\ifx\@typeface\@rm
  1208. \advance\baselineskip by \parskip
  1209. \parindent=2.5em
  1210. \leftmargini=3.5em
  1211. \topsep=1.2em
  1212. \parsep=.6em
  1213. \itemsep=.6em
  1214. \fi\fi
  1215. \parskip=0pt
  1216. \leftmargin=\leftmargini
  1217. \par
  1218. }%
  1219. }%
  1220. \def\@clearclosing{%
  1221. \edef\@tempa{\@toplist\@botlist\@deferlist}%
  1222. \ifx\@tempa\@empty\else
  1223. \@ifundefined{@noclearpage}{\clearpage}{}%
  1224. \fi
  1225. }%
  1226. \def\@endletter{%
  1227. \@ifundefined{@shortletterstyle}{\@dimenhspacesig=0pt}%
  1228. {%
  1229. \par
  1230. \ifnum\thepage>1 %
  1231. \@errorshortletter
  1232. \fi
  1233. \parindent=0em
  1234. \baselineskip=\@baselineskipsave
  1235. \parskip=\@parskipsave
  1236. \@dimenhspacesig=\textwidth
  1237. \divide\@dimenhspacesig by \@dimenwdtt
  1238. \divide\@dimenhspacesig by 2
  1239. \multiply\@dimenhspacesig by \@dimenwdtt
  1240. \advance\@dimenhspacesig by 3\@dimenwdtt
  1241. }%
  1242. }%
  1243. \def\@printfirstpageheader{%
  1244. \@outputlastpagetrue
  1245. \newpage
  1246. \@outputfirstpagetrue
  1247. \@outputlastpagefalse
  1248. \thispagestyle{firstpage}%
  1249. \normalsize
  1250. \begin{picture}(0,0)(\@countpictorig,\@countverticalposition)%
  1251. \ifx\@headerfonts\@letterpaper
  1252. \else
  1253. \@printletterpaper
  1254. \fi
  1255. \@printfirstpagerightheader
  1256. \end{picture}%
  1257. \@splitto
  1258. \@printingtotrue\@printto\@printingtofalse
  1259. \@printthruorvia{thru}%
  1260. \@printthruorvia{via}%
  1261. \@printsalutation
  1262. \@printsubject
  1263. \@printreference
  1264. }%
  1265. \def\@printletterpaper{%
  1266. \ifx\@headerfonts\@postscript
  1267. \@dimentemp=\@dimenletterpaperhcorr
  1268. \@counttemp=\@dimentemp
  1269. \divide\@counttemp by 65536
  1270. \@counttemptwo=\@dimenletterpapervcorr
  1271. \divide\@counttemptwo by 65536
  1272. \@PSlosalamos{\the\@counttemp }{\the\@counttemptwo }%
  1273. \else
  1274. \@latwentyeight
  1275. \put (\@countleftheader,-77){\@losalamos}%
  1276. \fi
  1277. \@spectwelve
  1278. \put (\@countleftheader,-93){\@lanl}%
  1279. \put (\@countleftheader,-\@countbotheader){\@lanm}%
  1280. \@bookseven
  1281. \@counttemptwo=767
  1282. \put (0,-\@counttemptwo){\makebox(0,0)[bl]{\hbox to 8.5in{%
  1283. \hfil An Equal Opportunity Employer/Operated
  1284. by the University of California\hfil}}}%
  1285. \@ifundefined{@nocallouts}{%
  1286. \@booksix
  1287. \put (\@countrightcolon,-68){\makebox(0,0)[br]{DATE:}}%
  1288. \put (\@countrightcolon,-80){\makebox(0,0)[br]{IN REPLY REFER TO:}}%
  1289. \put (\@countrightcolon,-92){\makebox(0,0)[br]{MAIL STOP:}}%
  1290. \put (\@countrightcolon,-\@countbotheader){\makebox(0,0)[br]{TELEPHONE:}}%
  1291. }{}%
  1292. }%
  1293. \def\@printfirstpagerightheader{%
  1294. \normalsize
  1295. \@ifundefined{@nocallouts}{%
  1296. \put (\@countrightheader,-68){\@date}%
  1297. \put (\@countrightheader,-80){\@symbolserialnumber}%
  1298. \put (\@countrightheader,-92){\@mailstop}%
  1299. \put (\@countrightheader,-\@countbotheader)%
  1300. {\parbox[t]{2.5in}{\parskip=\@parskipsave\the\@tokstelephone}}%
  1301. }{%
  1302. \put (\@countrightheader,-\@countbotheader){\parbox[b]{2.5in}{%
  1303. \parskip=\@parskipsave\ignorespaces\@date
  1304. \\Ref\@: \ignorespaces\@symbolserialnumber
  1305. }}}}%
  1306. \def\@splitto{%
  1307. \ifnum\@countto=0 %
  1308. \else\ifnum\@countto<3 %
  1309. \@toksleftto=\@toksto
  1310. \@countleftto=\@countto
  1311. \@toksrightto={}%
  1312. \@countrightto=0
  1313. \else
  1314. \@countrightto=\@countto \divide\@countrightto by 2
  1315. \@countleftto=\@countto \advance\@countleftto by -\@countrightto
  1316. \@toksleftto={}%
  1317. \@counttemp=\@countleftto
  1318. \@tokstemp=\@toksto
  1319. \loop
  1320. \@toendtopull\@tokstemp
  1321. \@addtokstotoks\@toksleftto\@toksbeforeendto
  1322. \@addtotoks\@toksleftto\@endto
  1323. \@tokstemp=\@toksafterendto
  1324. \advance\@counttemp by -1
  1325. \ifnum\@counttemp>0 %
  1326. \repeat
  1327. \@toksrightto=\@tokstemp
  1328. \fi\fi
  1329. \@toksto={}\@countto=0
  1330. }%
  1331. \def\@printto{%
  1332. \newline
  1333. \@dimentemp=\@countbotheader pt
  1334. \advance\@dimentemp by \@dimenletterpapervcorr
  1335. \advance\@dimentemp by 3\baselineskip
  1336. \advance\@dimentemp by -\ht\strutbox
  1337. \advance\@dimentemp by \@dimenexpandtopmargin
  1338. \vrule height \the\@dimentemp width0pt
  1339. \@everyindenttrue
  1340. \vbox to 0pt{%
  1341. \hbox{%
  1342. \@dimentemp=\textwidth
  1343. \ifnum\@countrightto=0 %
  1344. \parbox[t]{\@dimentemp}%
  1345. {\parskip=\@parskipsave
  1346. \ifnum\@countleftto>0 \@maketocol{leftto}\fi \mbox{}}%
  1347. \else
  1348. \advance\@dimentemp by -\@dimentocolsep
  1349. \divide\@dimentemp by 2
  1350. \parbox[t]{\@dimentemp}%
  1351. {\parskip=\@parskipsave
  1352. \ifnum\@countleftto>0 \@maketocol{leftto}\fi \mbox{}}%
  1353. \hskip\@dimentocolsep
  1354. \parbox[t]{\@dimentemp}%
  1355. {\parskip=\@parskipsave\@maketocol{rightto}\mbox{}}%
  1356. \fi
  1357. }%
  1358. }%
  1359. \@everyindentfalse
  1360. \newline
  1361. \vspace{-\baselineskip}%
  1362. \vspace{-\parskip}%
  1363. \vspace{\@bodysep}%
  1364. \mbox{}%
  1365. }%
  1366. \def\@maketocol#1{%
  1367. \@tokscoltemp=\csname @toks#1\endcsname
  1368. \@countcoltemp=\csname @count#1\endcsname
  1369. \@counttemptwo=\@countcoltemp
  1370. \begin{list}{}{\parsep=0pt\itemsep=\parskip\listparindent=-2\@dimenwdtt
  1371. \topsep=0pt\leftmargin=-\listparindent}%
  1372. \longloop
  1373. \ifnum\@countcoltemp>0 %
  1374. \advance\@countcoltemp by -1
  1375. \@toendtopull\@tokscoltemp
  1376. \@tokscoltemp=\@toksafterendto
  1377. \@writeonelabel{\the\@toksbeforeendto}%
  1378. \item
  1379. \leavevmode\copy\strutbox
  1380. \innerloop
  1381. \@tonewlinepull\@toksbeforeendto
  1382. \@toksaftersave=\@toksafternewline
  1383. \ignorespaces\the\@toksbeforenewline
  1384. \copy\strutbox
  1385. \@toksnotequal\@toksaftersave\@toksempty
  1386. \if@toksnotequal
  1387. \par
  1388. \@toksbeforeendto=\@toksaftersave
  1389. \innerrepeat
  1390. \longrepeat
  1391. \end{list}%
  1392. \@countcoltemp=\@counttemptwo
  1393. }%
  1394. \long\def\longloop#1\longrepeat{\def\longbody{#1}\longiterate}%
  1395. \def\longiterate{\longbody \let\next\longiterate \else\let\next\relax\fi \next}%
  1396. \let\longrepeat=\fi%
  1397. \long\def\innerloop#1\innerrepeat{\def\innerbody{#1}\inneriterate}%
  1398. \def\inneriterate{\innerbody \let\next\inneriterate
  1399. \else\let\next\relax\fi \next}%
  1400. \let\innerrepeat=\fi%
  1401. \def\@printsalutation{%
  1402. \@ifemptyorundefined{@salutation}{}{%
  1403. \par
  1404. \@salutation
  1405. }}%
  1406. \def\@printthruorvia#1{%
  1407. \@tokstemp=\csname @toks#1\endcsname
  1408. \@counttemp=\csname @count#1\endcsname
  1409. \ifnum\@counttemp=0 %
  1410. \else
  1411. \longloop
  1412. \@toendtopull\@tokstemp
  1413. \par
  1414. \begin{list}{\copy\strutbox \uppercase{#1}:\hfill}{%
  1415. \settowidth\labelwidth{\uppercase{#1}: }%
  1416. \leftmargin=\labelwidth
  1417. \topsep=0pt
  1418. \labelsep=0pt}%
  1419. \item\the\@toksbeforeendto
  1420. \end{list}%
  1421. \@toksnotequal\@toksafterendto\@toksempty
  1422. \if@toksnotequal
  1423. \@tokstemp=\@toksafterendto
  1424. \longrepeat
  1425. \fi}%
  1426. \def\@printsubject{%
  1427. \par
  1428. \ifx\@subject\@empty\else
  1429. \begin{list}{\copy\strutbox SUBJECT:\hfill}{%
  1430. \settowidth\labelwidth{SUBJECT\@: }%
  1431. \leftmargin=\labelwidth
  1432. \topsep=0pt
  1433. \labelsep=0pt}%
  1434. \item\@subject
  1435. \end{list}%
  1436. \fi
  1437. }%
  1438. \def\@printreference{%
  1439. \par
  1440. \ifnum\@countreference=0 %
  1441. \else
  1442. \ifnum\@countreference=1 %
  1443. REFERENCE:\relax
  1444. \else
  1445. REFERENCES:\relax
  1446. \fi
  1447. \par\vspace{-\baselineskip}%
  1448. \begin{list}{\ifnum\@countreference=1\else\arabic{@countlist}.\fi}{%
  1449. \topsep=0pt\itemsep=0pt\parsep=0pt
  1450. \ifnum\@countreference=1 %
  1451. \settowidth\leftmargin{REFERENCE\@: }%
  1452. \else
  1453. \settowidth\leftmargin{REFERENCES\@: }%
  1454. \fi
  1455. \@setnumdefaults\@countreference
  1456. }%
  1457. \@printnumberedlist{\@toksreference}%
  1458. \end{list}%
  1459. \fi
  1460. }%
  1461. \def\@printcompclose{%
  1462. \par
  1463. \vspace{\@bodysep}%
  1464. \@complimentaryclose
  1465. }%
  1466. \def\@printsignature{%
  1467. \par
  1468. \@ifemptyorundefined{@signature}{}{{%
  1469. \samepage
  1470. \vspace*{2\baselineskip}%
  1471. \@signature
  1472. }}}%
  1473. \def\@printoriginatorline{%
  1474. \@ifemptyorundefined{@signature}{\nopagebreak}{}%
  1475. \par
  1476. \ifx\@signer\@empty
  1477. \else
  1478. \@signer
  1479. \ifx\@originator\@empty
  1480. \ifx\@typist\@empty \else :\relax \fi
  1481. \else
  1482. -\relax
  1483. \fi
  1484. \fi
  1485. \ifx\@originator\@empty
  1486. \else
  1487. \@originator
  1488. \ifx\@typist\@empty \else :\relax \fi
  1489. \fi
  1490. \ifx\@typist\@empty
  1491. \else
  1492. \@typist
  1493. \fi
  1494. }%
  1495. \def\@printenc{%
  1496. \@ifundefined{@encas}{}{%
  1497. \ifnum\@countenc=0 %
  1498. \par Enc.\ a/s%
  1499. \else \@erroras\enc\encas{Enc. a/s}%
  1500. \fi}%
  1501. \ifnum\@countenc=0 %
  1502. \else
  1503. \par
  1504. \@ifundefined{@encpagebreak}{}{\pagebreak}%
  1505. \ifnum\@countenc=1 %
  1506. Enclosure:\relax
  1507. \else
  1508. Enc.\relax
  1509. \fi
  1510. \nopagebreak
  1511. \par\vspace{-\baselineskip}%
  1512. \@countletterlist=\@countenc
  1513. \begin{list}{\ifnum\@countenc=1\else\arabic{@countlist}.\fi}{%
  1514. \ifnum\@countenc=1 %
  1515. \settowidth\leftmargin{Enclosure: }%
  1516. \else
  1517. \settowidth\leftmargin{Enc.\ }%
  1518. \fi
  1519. \@setnumdefaults\@countenc
  1520. \topsep=0pt\itemsep=0pt\parsep=0pt
  1521. }%
  1522. \@printnumberedlist{\@toksenc}%
  1523. \end{list}%
  1524. \fi
  1525. }%
  1526. \def\@printattachments{%
  1527. \@ifundefined{@attachmentas}%
  1528. {\@ifundefined{@attachmentsas}{}%
  1529. {\ifnum\@countattachments=0 %
  1530. \par Attachments a/s%
  1531. \else \@erroras\attachments\attachmentsas{Attachments a/s}\fi}}%
  1532. {\@ifundefined{@attachmentsas}%
  1533. {\ifnum\@countattachments=0 %
  1534. \par Attachment a/s%
  1535. \else\@erroras\attachments\attachmentas{Attachment a/s}\fi}%
  1536. {\par Attachments a/s%
  1537. \@erroras\attachmentas\attachmentsas{Attachment a/s}}}%
  1538. \ifnum\@countattachments=0 %
  1539. \else
  1540. \par
  1541. \@ifundefined{@attachmentspagebreak}{}{\pagebreak}%
  1542. \ifnum\@countattachments=1 %
  1543. Attachment:\relax
  1544. \else
  1545. Attachments:\relax
  1546. \fi
  1547. \@countletterlist=\@countattachments
  1548. \begin{list}{\ifnum\@countattachments=1\else\arabic{@countlist}.\fi}{%
  1549. \leftmargin=0pt
  1550. \@setnumdefaults\@countattachments
  1551. }%
  1552. \@printnumberedlist{\@toksattachments}%
  1553. \end{list}%
  1554. \fi
  1555. }%
  1556. \def\@printdistribution{%
  1557. \ifnum\@countdistribution=0 %
  1558. \else
  1559. \par
  1560. \@ifundefined{@distributionpagebreak}{}{\pagebreak}%
  1561. {\offinterlineskip Distribution:\copy\strutbox}%
  1562. \@countletterlist=\@countdistribution
  1563. \begin{list}{}{%
  1564. \topsep=0pt\itemsep=0pt\parsep=0pt
  1565. \parskip=0pt\labelsep=0pt\labelwidth=0pt\leftmargin=0pt
  1566. }%
  1567. \item\the\@toksdistribution
  1568. \end{list}%
  1569. \fi
  1570. }%
  1571. \def\@printcy{%
  1572. \ifnum\@countcy=0 %
  1573. \else
  1574. \pagebreak[0]%
  1575. \par
  1576. \@ifundefined{@cypagebreak}{}{\pagebreak}%
  1577. \begin{list}{Cy:\hfill}{%
  1578. \settowidth\labelwidth{Cy: }%
  1579. \leftmargin=\labelwidth
  1580. \topsep=0pt\itemsep=0pt\parsep=0pt
  1581. \labelsep=0pt
  1582. }%
  1583. \item\the\@tokscy
  1584. \end{list}%
  1585. \fi
  1586. }%
  1587. \def\@setnumdefaults#1{%
  1588. \ifnum #1=1 %
  1589. \labelwidth=0pt%
  1590. \labelsep=0pt
  1591. \else
  1592. \usecounter{@countlist}%
  1593. \ifnum #1<10 %
  1594. \settowidth\labelwidth{8.}%
  1595. \else
  1596. \settowidth\labelwidth{88.}%
  1597. \fi\fi
  1598. \addtolength\leftmargin\labelwidth
  1599. \addtolength\leftmargin\labelsep
  1600. \topsep=0pt\itemsep=0pt\parsep=0pt
  1601. \setlength\parskip{0pt}%
  1602. }%
  1603. \def\@printnumberedlist#1{%
  1604. \@toksremaining=#1%
  1605. \loop
  1606. \@tonewlinepull{\@toksremaining}%
  1607. \@toksnotequal\@toksbeforenewline\@toksempty
  1608. \if@toksnotequal
  1609. \@toksitem=\@toksbeforenewline
  1610. \@toksremaining=\@toksafternewline
  1611. \ifx #1\@toksreference%
  1612. \item\uppercase\expandafter{\the\@toksitem}%
  1613. \else
  1614. \item\the\@toksitem
  1615. \fi
  1616. \repeat
  1617. }%
  1618. \def\@tonewlinepull#1{\let\@nlsave=\\\let\\=\relax
  1619. \expandafter\@tonewlinepullone\the#1\\\@empty
  1620. \if@newline\expandafter\@tonewlinepullthree\the#1\@empty
  1621. \else\fi\let\\=\@nlsave}%
  1622. \def\@tonewlinepullone#1\\{\@toksbeforenewline={#1}%
  1623. \futurelet\next\@tonewlinepulltwo}%
  1624. \def\@tonewlinepulltwo#1\@empty{\@toksafternewline={#1}%
  1625. \ifx\@empty\next\@newlinefalse
  1626. \else\@newlinetrue\fi}%
  1627. \def\@tonewlinepullthree#1\\{\@toksbeforenewline={#1}%
  1628. \futurelet\next\@tonewlinepullfour}%
  1629. \def\@tonewlinepullfour#1\@empty{\@toksafternewline={#1}%
  1630. \ifx\@empty\next\@newlinefalse
  1631. \else\@newlinetrue\fi}%
  1632. \def\@tocommapull#1{\expandafter\@tocommapullone\the#1,\@empty}%
  1633. \def\@tocommapullone#1,{\@toksbeforecomma={#1}%
  1634. \futurelet\next\@tocommapulltwo}%
  1635. \def\@tocommapulltwo#1\@empty{\ifx\@empty\next \@commafalse
  1636. \else \@commatrue \fi}%
  1637. \def\@toendtopull#1{\expandafter\@toendtopullone\the#1\@empty}%
  1638. \def\@toendtopullone#1\@endto#2\@empty{\@toksbeforeendto={#1}%
  1639. \@toksafterendto={#2}}%
  1640. \def\@unspaceleft#1{%
  1641. \def\@macroname{#1}%
  1642. \ifx #1\@empty 
  1643. \else
  1644. \ifx #1\@blank
  1645. \global\expandafter\def\@macroname{}%
  1646. \else
  1647. \expandafter\@unspaceleftone#1\relax\relax\@empty
  1648. \fi\fi
  1649. }%
  1650. \def\@unspaceleftone#1#2\relax{%
  1651. \global\expandafter\def\@macroname{#1#2}%
  1652. \@unspacelefttwo}%
  1653. \def\@unspacelefttwo#1\@empty{}%
  1654. \def\@upperunspaceleft#1{%
  1655. \def\@macroname{#1}%
  1656. \ifx #1\@empty 
  1657. \else
  1658. \ifx #1\@blank
  1659. \global\expandafter\def\@macroname{}%
  1660. \else
  1661. \expandafter\@upperunspaceleftone#1\relax\relax\@empty
  1662. \fi\fi
  1663. }%
  1664. \def\@upperunspaceleftone#1#2\relax{%
  1665. \global\expandafter\def\@macroname{\uppercase{#1#2}}%
  1666. \@unspacelefttwo}%
  1667. \def\@unspaceright#1{%
  1668. \def\@macroname{#1}%
  1669. \edef\@temp{#1}%
  1670. \expandafter\@unspacerightone#1\relax{} \relax\@empty
  1671. }%
  1672. \def\@unspacerightone#1 \relax{%
  1673. \global\expandafter\edef\@macroname{#1}%
  1674. \futurelet\next\@unspacerighttwo}%
  1675. \def\@unspacerighttwo#1\@empty{%
  1676. \ifx\@empty\next
  1677. \global\expandafter\edef\@macroname{\@temp}%
  1678. \fi
  1679. }%
  1680. \def\@addtotoks#1#2{#1=\expandafter{\the#1#2}}%
  1681. \def\@addtokstotoks#1#2{\edef\@deftemp{\the#1\the#2}%
  1682. \global#1=\expandafter{\@deftemp}}%
  1683. \long\def\@ifemptyorundefined#1#2#3{%
  1684. \expandafter\ifx\csname#1\endcsname\relax#2
  1685. \else\expandafter\ifx\csname#1\endcsname\@empty#2
  1686. \else\expandafter\ifx\csname#1\endcsname\@blank#2
  1687. \else#3\fi\fi\fi}
  1688. \def\@ifnoinfo#1#2#3{\def\@deftemp{#1}%
  1689. \ifx\@deftemp\@empty#2\else\ifx\@deftemp\@blank#2\else#3\fi\fi}
  1690. \def\@toksnotequal#1#2{\begingroup\edef\one{\the#1}\edef\two{\the#2}%
  1691. \ifx\one\two\global\@toksnotequalfalse\else\global\@toksnotequaltrue\fi
  1692. \endgroup}%
  1693. \def\@advcountbydimen#1#2{\@counttemp=#2%
  1694. \divide\@counttemp by 65536 \advance#1by \@counttemp}%
  1695. \def\@globaladvcountbydimen#1#2{\@counttemp=#2%
  1696. \divide\@counttemp by 65536 \global\advance#1by \@counttemp}%
  1697. \def\@notvoidtoks#1{\@addtotoks{#1}{\@empty}%
  1698. \expandafter\@notvoidtoksone\the#1}%
  1699. \def\@notvoidtoksone{\futurelet\next\@notvoidtokstwo}%
  1700. \def\@notvoidtokstwo#1\@empty{\ifx\@empty\next \@notvoidtoksfalse
  1701. \else \@notvoidtokstrue \fi}%
  1702. \maillabelheight{}
  1703. \maillabeltopmargin{}
  1704. \def\@startlabels{%
  1705. \baselineskip=0pt 
  1706. \lineskip=0pt
  1707. \pagestyle{empty}
  1708. \let\@texttop=\relax
  1709. \topmargin=-72pt
  1710. \advance\topmargin by\@dimenmaillabeltopmargin
  1711. \headsep 0pt
  1712. \oddsidemargin -35pt
  1713. \evensidemargin -35pt
  1714. \textheight 11in
  1715. \advance\textheight by-\@dimenmaillabeltopmargin
  1716. \@colht\textheight \@colroom\textheight \vsize\textheight
  1717. \textwidth 550pt
  1718. \columnsep 25pt
  1719. \xpt
  1720. \raggedbottom
  1721. \boxmaxdepth=0pt
  1722. \parindent=0pt %
  1723. \twocolumn\relax
  1724. \loop
  1725. \ifnum\@countskiplabels>0
  1726. \@mlabel{}%
  1727. \advance\@countskiplabels by -1
  1728. \repeat
  1729. }
  1730. \def\@mlabel#1{%
  1731. \setbox0\vbox{\parbox[b]{3.6in}%
  1732. {\strut\@printingtotrue\ignorespaces #1}}%
  1733. \vbox to \the\@dimenmaillabelheight{\vss \box0 \vss}}%
  1734. \def\@writeonelabel#1{%
  1735. \if@makemaillabels
  1736. \begingroup 
  1737. \def\protect{\string}
  1738. \let\\=\relax
  1739. \def\protect##1{\string##1\space}
  1740. \immediate\write\@mlbout{\string\@mlabel{#1}}%
  1741. \ifnum\@countreturnaddress=0\else
  1742. \immediate\write\@mlbout{\string\@mlabel{\the\@toksreturnaddress}}%
  1743. \fi
  1744. \endgroup 
  1745. \fi}
  1746. \def\@eightspaces{\space\space\space\space\space\space\space\space}%
  1747. \def\@errorundeclared#1{\typeout{^^JWarning: you have not called \protect #1
  1748. before calling \protect\opening.^^J}}%
  1749. \def\@errorundeclaredcallout#1{\typeout{^^JWarning: you have not specified
  1750. the callout \protect #1^^J
  1751. \@eightspaces before calling \protect\opening.^^J}}%
  1752. \def\@errorundeclaredto{\typeout{^^JWarning: you have not specified 
  1753. an address
  1754. before calling \protect\opening.^^J^^J
  1755. \@eightspaces Use \protect\to\space to specify an address, 
  1756. for example^^J^^J
  1757. \@eightspaces \protect\to{Vieno Severi Alanne \protect\\^^J
  1758. \@eightspaces 414 Rio Seco \protect\\^^J
  1759. \@eightspaces Santa Fe, NM 87501}^^J}}%
  1760. \def\@errorshowexample#1#2{\typeout{\@eightspaces\space For example, use^^J^^J
  1761. \@eightspaces\protect #1{#2}^^J}}%
  1762. \def\@errorundeclaredsalutation{\typeout{^^JWarning: you have not called 
  1763. \protect\salutation\space before calling \protect\opening.^^J}%
  1764. \@errorshowexample{\salutation}{Dear Henry,}}%
  1765. \def\@errorundeclaredcompclose{\typeout{^^JWarning: you have not called
  1766. \protect\complimentaryclose\space before calling \protect\opening.^^J
  1767. \@eightspaces\protect\complimentaryclose{Sincerely Yours,} 
  1768. will be used by default.^^J}}%
  1769. \def\@errorserialnosymbol{\typeout{^^JWarning: you have called 
  1770. \protect\serialnumber, but you have not called \protect\symbol.^^J}%
  1771. \@errorshowexample{\symbol}{C-2}}%
  1772. \def\@errortoleftrightto{\typeout{%
  1773. ^^JWarning: you have called \protect\leftto\space
  1774. and/or \protect\rightto\space as well as \protect\to.^^J
  1775. \@eightspaces All addresses called by \protect\to\space will be printed in
  1776. the left column.^^J}}%
  1777. \def\@erroruseas#1#2{\typeout{^^JWarning: you specified 
  1778. \protect\use#1asheader,^^J
  1779. \@eightspaces yet you have not specified \protect#2.^^J^^J
  1780. \@eightspaces The first line of the addressee will be used ^^J
  1781. \@eightspaces on headers after page one.^^J}}%
  1782. \def\@errorattn{\typeout{^^JWarning: \protect\attn\space must be used only
  1783. within the argument of \protect\to, for example,^^J^^J
  1784. \@eightspaces \protect\to{Genie Electronics \protect\\ ^^J
  1785. \@eightspaces \protect\attn{Mr. Robert Mercer, Sales Manager} \protect\\ ^^J
  1786. \@eightspaces P.O. Box 8501 \protect\\ ^^J
  1787. \@eightspaces Midwest City, OK 73110}^^J}}%
  1788. \def\@errorthruandvia{\typeout{^^JWarning: you have used both
  1789. \protect\thru\space and \protect\via\space in this letter.^^J
  1790. \@eightspaces Use one or the other, but not both.}}%
  1791. \def\@errorclassargument{%
  1792. \typeout{^^JFatal error: \protect\classlabel{\@classlabel} 
  1793. calls for an invalid classification label.^^J}%
  1794. \@errorclassmessage}%
  1795. \def\@errortwoclasses{%
  1796. \typeout{^^JFatal error: you have called \protect\classlabel \space
  1797. more than once, or you have^^J
  1798. \@eightspaces\space\space\space\space called 
  1799. \protect\classlabel \space after having called 
  1800. \protect\begin{document}.^^J^^J
  1801. \space You are allowed to declare only one classification label
  1802. per letter.^^J
  1803. \space You must call \protect\classlabel\space before using 
  1804. \protect\begin{document}.^^J}%
  1805. \@errorclassmessage}%
  1806. \def\@errorclassmessage{%
  1807. \typeout{%
  1808. \space\space To print CONFIDENTIAL on the top and bottom
  1809. of your letter,^^J
  1810. \space use \protect\classlabel{c}^^J^^J
  1811. \space To print SECRET on the top and bottom
  1812. of your letter,^^J
  1813. \space use \protect\classlabel{s}^^J^^J
  1814. \space To print UNCLASSIFIED on the top and bottom
  1815. of your letter,^^J
  1816. \space use \protect\classlabel{u}^^J^^J
  1817. \space If you do not want a classification label on your letter,^^J
  1818. \space use \protect\classlabel{}^^J
  1819. \space or do not use the \protect\classlabel\space command.^^J^^J
  1820. \space Change your file, and rerun LaTeX.^^J}}%
  1821. \def\@errorillegaltypeface{%
  1822. \typeout{^^JFatal error: \protect\typeface{\@typeface} calls for an invalid
  1823. typeface.^^J^^J
  1824. \space Use \protect\typeface{tt} or \protect\typeface{rm}^^J^^J
  1825. \space Change your file, and rerun LaTeX.^^J}}%
  1826. \def\@errorillegalheaderfont{\def\@fontcommand{\protect\headerfonts}%
  1827. \def\@fontarg{\@headerfonts}%
  1828. \typeout{^^JFatal error: \@fontcommand{\@fontarg} calls for 
  1829. an invalid font.^^J^^J
  1830. \space Use \@fontcommand{lafonts}, \@fontcommand{texfonts},^^J
  1831. \space or \@fontcommand{postscript}\space
  1832. depending on what fonts^^J \space are available on your machine.^^J^^J
  1833. \space Using \@fontcommand{} will give you the default fonts.^^J^^J
  1834. \space Use \@fontcommand{letterpaper} if you wish to print your letter^^J
  1835. \space on pre-printed letter paper.^^J^^J
  1836. \space Change your file, and rerun LaTeX.^^J}}%
  1837. \def\@errorillegalbodyfont{\def\@fontcommand{\protect\bodyfonts}%
  1838. \def\@fontarg{\@bodyfonts}%
  1839. \typeout{^^JFatal error: \@fontcommand{\@fontarg} calls 
  1840. for an invalid font.^^J^^J
  1841. \space Use \@fontcommand{texfonts} or \@fontcommand{postscript}^^J
  1842. \space depending on what fonts are available on your machine.^^J^^J
  1843. \space Using \@fontcommand{} will give you the default fonts.^^J^^J
  1844. \space Change your file, and rerun LaTeX.^^J}}%
  1845. \def\@erroramfonts{%
  1846. \typeout{^^JWarning: You are using the obsolete Almost Modern (AM) 
  1847. fonts.^^J^^J
  1848. \@eightspaces Only cursory debugging has been attempted using AM fonts.^^J
  1849. \@eightspaces The Computer Modern (CM) fonts are fully supported
  1850. by laletter.^^J}}%
  1851. \def\@erroroldlafonts{%
  1852. \typeout{^^JFatal error: Your system is using an obsolete version 
  1853. of lafonts.^^J^^J
  1854. \@eightspaces Get the manual called "TeX Fonts for Los Alamos 
  1855. Memos and Letters^^J
  1856. \@eightspaces Installation Reference," CIC \protect##1128,
  1857. from the Computer^^J
  1858. \@eightspaces Information Center, 667-6992.^^J}}%
  1859. \def\@errorshortletter{%
  1860. \typeout{^^JWarning: Use of the \protect\shortletterstyle\space macro
  1861. is intended^^J
  1862. \@eightspaces for use with letters of ten lines or less.^^J^^J}}%
  1863. \def\@erroras#1#2#3{%
  1864. \typeout{^^JWarning: You have used both \protect#1\space and
  1865. \protect#2.^^J
  1866. \@eightspaces Use one or the other but not both.^^J
  1867. \@eightspaces "#3" will not be printed on this letter.^^J^^J}}%
  1868. \def\@todieornottodie{\relax}%
  1869. \def\@exit{\@fileswfalse\@makemaillabelsfalse\end{document}}%
  1870. \def\@exitfi{\@fileswfalse\@makemaillabelsfalse\fi\end{document}}%
  1871. \def\@specialbopempty{}%
  1872. \let\@specialboptext=\@specialbopempty
  1873. \def\specialbop#1{%
  1874. \xdef\@specialboptext{%
  1875. \@specialboptext 
  1876. \special{#1}%
  1877. }}%
  1878. \def\@specialbopemit{%
  1879. \ifx\@specialboptext\@specialbopempty
  1880. \else
  1881. \@specialboptext
  1882. \global\let\@specialboptext=\@specialbopempty
  1883. \fi
  1884. }%
  1885. \def\@item[#1]{%
  1886. \if@noparitem \@donoparitem
  1887. \else \if@inlabel \indent \par \fi
  1888. \ifhmode \unskip\unskip \par \fi 
  1889. \if@newlist \if@nobreak \@nbitem \else
  1890. {%
  1891. \if@closing
  1892. \@beginparpenalty=10000
  1893. \fi
  1894. \addpenalty\@beginparpenalty
  1895. }%
  1896. \addvspace\@topsep \addvspace{-\parskip}\fi
  1897. \else 
  1898. {%
  1899. \if@closing
  1900. \ifnum\c@@countlist=1 %
  1901. \@itempenalty=10000
  1902. \fi
  1903. \advance \@countletterlist by -1
  1904. \ifnum\c@@countlist=\@countletterlist
  1905. \@itempenalty=10000
  1906. \fi
  1907. \fi
  1908. \addpenalty\@itempenalty
  1909. }%
  1910. \addvspace\itemsep 
  1911. \fi 
  1912. \global\@inlabeltrue 
  1913. \fi
  1914. \everypar{\global\@minipagefalse\global\@newlistfalse 
  1915. \if@inlabel\global\@inlabelfalse 
  1916. \if@everyindent\else%
  1917. \hskip -\parindent
  1918. \fi%
  1919. \box\@labels
  1920. \penalty\z@ \fi
  1921. \everypar{}}\global\@nobreakfalse
  1922. \if@noitemarg\@noitemargfalse \if@nmbrlist\refstepcounter{\@listctr}\fi\fi
  1923. \setbox\@tempboxa\hbox{\makelabel{#1}}%
  1924. \global\setbox\@labels
  1925. \hbox{\unhbox\@labels \hskip \itemindent
  1926. \hskip -\labelwidth \hskip -\labelsep 
  1927. \ifdim \wd\@tempboxa >\labelwidth 
  1928. \box\@tempboxa
  1929. \else \hbox to\labelwidth {\makelabel{#1}}\fi
  1930. \hskip \labelsep}\ignorespaces
  1931. }%
  1932. \def\@outputpage{\begingroup\catcode`\ =10 
  1933. \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii
  1934. \if@specialpage
  1935. \global\@specialpagefalse\@nameuse{ps@\@specialstyle}\fi
  1936. \if@twoside
  1937. \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
  1938. \let\@themargin\oddsidemargin
  1939. \else \let\@thehead\@evenhead
  1940. \let\@thefoot\@evenfoot \let\@themargin\evensidemargin
  1941. \fi\fi
  1942. \shipout
  1943. \vbox{\normalsize \baselineskip\z@ \lineskip\z@
  1944. \let\par\@@par %
  1945. \@specialbopemit%
  1946. \vskip \topmargin \moveright\@themargin
  1947. \vbox{\setbox\@tempboxa
  1948. \vbox to\headheight{\vfil \hbox to\textwidth{\@thehead}}%
  1949. \dp\@tempboxa\z@
  1950. \box\@tempboxa
  1951. \vskip \headsep
  1952. \box\@outputbox
  1953. \baselineskip\footskip
  1954. \hbox to\textwidth{\@thefoot}}}\global\@colht\textheight
  1955. \endgroup
  1956. \if@outputfirstpage%
  1957. \global\topskip=\ht\strutbox%
  1958. \global\headsep=\@dimentoppagetwo%
  1959. \global\advance\headsep by -\topskip%
  1960. \global\advance\textheight by -\headsep%
  1961. \global\@outputfirstpagefalse%
  1962. \fi%
  1963. \stepcounter{page}%
  1964. \if@outputlastpage%
  1965. \ifnum\outputpenalty=-\@M
  1966. \global\c@page=1
  1967. \global\topskip=\@topskipfirst
  1968. \global\headsep=\@headsepfirst
  1969. \global\textheight=\@textheightfirst
  1970. \fi\fi
  1971. \let\firstmark\botmark
  1972. }%
  1973. \def\document{\endgroup
  1974. \@colht\textheight \@colroom\textheight \vsize\textheight
  1975. \columnwidth\textwidth \@clubpenalty\clubpenalty
  1976. \if@twocolumn \advance\columnwidth -\columnsep 
  1977. \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue 
  1978. \fi
  1979. \hsize\columnwidth \linewidth\hsize
  1980. \begingroup\@floatplacement\@dblfloatplacement
  1981. \makeatletter\let\@writefile\@gobbletwo
  1982. \@input{\jobname.aux}\endgroup 
  1983. \if@filesw \immediate\openout\@mainaux=\jobname.aux
  1984. \immediate\write\@mainaux{\relax}\fi
  1985. \if@makemaillabels \immediate\openout\@mainmlb=\jobname.mlb
  1986. \immediate\write\@mainmlb{\string\@startlabels}\fi
  1987. \def\do##1{\let ##1\@notprerr}
  1988. \@preamblecmds
  1989. \let\do\noexpand 
  1990. \@normalsize\everypar{}}
  1991. \def\enddocument{%
  1992. \if@neveropened
  1993. \@splitto
  1994. \setbox\@boxtemp=\hbox{\@printingtotrue\@printto\@printingtofalse}%
  1995. \fi
  1996. \@checkend{document}\newpage\begingroup 
  1997. \if@makemaillabels \immediate\closeout\@mainmlb 
  1998. \makeatletter\input \jobname.mlb\clearpage\fi
  1999. \if@filesw \immediate\closeout\@mainaux 
  2000. \def\global\@namedef##1##2{}\def\newlabel{\@testdef r}%
  2001. \def\bibcite{\@testdef b}\@tempswafalse \makeatletter\input \jobname.aux
  2002. \if@tempswa \@warning{Label(s) may have changed. Rerun to get
  2003. cross-references right}\fi\fi\endgroup\deadcycles\z@\@@end}
  2004.